home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  48 lines
  1. 10 REM ** PREPARED BY DAVID BRADLEY **
  2. 90 PRINT"[147]"
  3. 100 POKE53280,0:POKE53281,0:PRINT"";
  4. 110 READNM:DIMTT$(NM),TL$(NM),RN$(NM)
  5. 120 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  6. 125 PRINT"[147]":PRINTTAB(10):PRINT"[129]****[158][205][197][206][213]/[204][207][193][196][197][210][146]***[129]*[158]":PRINT
  7. 135 PRINT"[197][206][212][197][210][160][217][207][213][210][160][195][200][207][201][195][197][160][193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][146]"
  8. 137 PRINT:PRINT
  9. 140 FORI=1TONM
  10. 150 PRINTTAB(12)RIGHT$("0"+MID$(STR$(I),2),2)") "TT$(I)
  11. 155 NEXTI
  12. 162 REM *RIATE LINE 163 THROUGH 169.  *         *******************************
  13. 164 PRINT"[156][212][208][213][199] [205][193][217] [195]64 [196][201][211][203] ([205][197][206][213] #1)[146][158]"
  14. 170 INPUT"[217][207][213][210][160][195][200][207][201][195][197]";A$
  15. 171 IFA$="Q"THENPRINT"[147]":END
  16. 172 IFA$="L"THENPRINT"[147]":LIST
  17. 180 A=VAL(A$):IF(A<1ORA>NM)ANDA$<>CHR$(80)THENPRINT"[145]";:GOTO170
  18. 185 IFA$=CHR$(80)THENGOSUB250:PRINT"";:GOTO170
  19. 190 PRINT"[147][142]LOAD"CHR$(34)TL$(A)CHR$(34)",8,1"
  20. 200 PRINT""RN$(A)
  21. 210 POKE198,3:POKE631,19:POKE632,13:POKE633,13
  22. 220 END
  23. 250 RESTORE:READNM
  24. 252 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  25. 270 OPEN4,4:PRINT#4,CHR$(10)CHR$(10)CHR$(10);"  ":CD$=CHR$(17)
  26. 272 FORI=1TONM:PRINT#4,CD$;CHR$(16);"15";TT$(I):NEXTI
  27. 274 PRINT#4,"   "CHR$(10)CHR$(10):CLOSE4:RETURN
  28. 900 REM
  29. 910 REM
  30. 920 REM
  31. 990 REM PROGRAM DATA
  32. 1000 DATA 15
  33. 1010 DATA"[204]IST-[205]E ([195])[212]9",LIST-ME (C)T9.L,LIST
  34. 1020 DATA"[196]IR [211]ORT",DIR SORT.C,RUN
  35. 1030 DATA"[194]AM",BAM.C,RUN
  36. 1040 DATA"[194]LOCK [198]REE",BLOCK FREE.C,RUN
  37. 1050 DATA"[194]OOT [196]OS 5.2",BOOT DOS 5.2.C,RUN
  38. 1060 DATA"[195]OCKROACH 1[196]",COCKROACH 1D.C,RUN
  39. 1070 DATA"[195]OCKROACH 1",COCKROACH 1.C,RUN
  40. 1080 DATA"[195]OCKROACH 2[196]",COCKROACH 2D.C,RUN
  41. 1090 DATA"[195]OCKROACH [197]",COCKROACH E.C,RUN
  42. 1100 DATA"[196]IR [210]EAD",DIR READ.C,RUN
  43. 1110 DATA"[198]AST [194][193][205]",FAST BAM.C,RUN
  44. 1120 DATA"[198]UNCTION [203]EYS",FUNCTION KEYS.C,LIST2-9
  45. 1130 DATA"[204]OCK-[213]NLOCK",LOCK UNLOCK.C,RUN
  46. 1140 DATA"[210]ECOVER 1541",RECOVER 1541.C,RUN
  47. 1150 DATA"[205][207][210][197] [205][197][206][213]",MORE MENU,RUN
  48.